home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol260 / boosters.arc / STIME.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-03  |  272 b   |  14 lines
  1. { ---------------
  2.   SET TIME of day
  3.   --------------- }
  4. Procedure Stime ( hh, mm, ss : integer );
  5. begin
  6.    with regs do
  7.    begin
  8.       cx := swap(hh);
  9.       cx := cx or mm;
  10.       dx := swap(ss);
  11.       ax := $2D00;
  12.       intr($21,regs);
  13.    end;
  14. end { Stime };